﻿Public Class ven_concent_aguj

    
    Private Sub btn_cal_aguj_ce_Click(sender As Object, e As EventArgs) Handles btn_cal_aguj_ce.Click
        r = Convert.ToSingle(r_aguj.Text)

        alfakflex = Convert.ToSingle(alfakflex_aguj.Text)
        alfaktor = Convert.ToSingle(alfaktor_aguj.Text)
        nent = (1 + (8 / r) * ((1 - sf / su) ^ 3)) ^ (-1)
        betakflex = 1 + nent * (alfakflex - 1)
        betaktor = 1 + nent * (alfaktor - 1)
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        txt_2rentred.Text = 2 * r / d
    End Sub
End Class